(Fexecute_kbd_macro): Set real_this_command.

diff --git a/src/macros.c b/src/macros.c
index 64cf5e80c441829eb82c3ec5c07b428fc51971c9..f5bddd26e6f08a3aac0a234b4e2d69db97ac77bc 100644 (file)
--- a/src/macros.c
+++ b/src/macros.c
@@ -51,6 +51,8 @@ int executing_macro_iterations;
 
 Lisp_Object executing_macro;
 
+extern Lisp_Object real_this_command;
+
 Lisp_Object Fexecute_kbd_macro ();
 \f
 DEFUN ("start-kbd-macro", Fstart_kbd_macro, Sstart_kbd_macro, 1, 1, "P",
@@ -286,6 +288,8 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.")
 
   executing_macro = Qnil;
 
+  real_this_command = Vexecuting_macro;
+
   UNGCPRO;
   return unbind_to (pdlcount, Qnil);
 }